home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 10 / BBS In A Box Volume X (AMUG) (January 1994).bin / Files / Hyper / E / EditString.cpt / EditString Stack / EditString Stack / card_3618.txt < prev    next >
Encoding:
Text File  |  1990-06-22  |  1.5 KB  |  65 lines
  1. -- card: 3618 from stack: in
  2. -- bmap block id: 4477
  3. -- flags: 0000
  4. -- background id: 3493
  5. -- name: count
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=88 top=211 right=233 bottom=188
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Do It
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put editString("count", background field "A", cd fld what) into background field "B"
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 3 (field)
  28. -- low flags: 00
  29. -- high flags: 0002
  30. -- rect: left=335 top=217 right=234 bottom=399
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 0
  34. -- font id: 97
  35. -- text size: 9
  36. -- style flags: 0
  37. -- line height: 12
  38. -- part name: what
  39.  
  40.  
  41. -- part contents for background part 1
  42. ----- text -----
  43. Count
  44.  
  45. -- part contents for background part 2
  46. ----- text -----
  47. Count will return the total number of occurances of a specific character within a block of text.  The maximum size of the text
  48. (or data holder) is 30000 bytes.
  49.  
  50. -- part contents for background part 3
  51. ----- text -----
  52. editString("count", source, character)
  53. ‚Ä¢ source is the input text
  54. ‚Ä¢ character is the character to search for
  55.  
  56. put editString("count", field "A", ":") into field "B"
  57. This will return how manu occurances of ":" there are in field "A"
  58.  
  59. -- part contents for background part 4
  60. ----- text -----
  61. My Hard Disk:HyperCard:Super Stuff:My Stuff:Your Stuff
  62.  
  63. -- part contents for card part 3
  64. ----- text -----
  65. :